home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / cspingon.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  153 b   |  8 lines
  1. to cspingon :n :rad :angle :growth :times
  2.  ht
  3.  if :times < 1 [STOP]
  4.  cngon :n :rad 
  5.  rt :angle 
  6.  spingon :n (:rad*:growth) :angle :growth (:times-1)
  7. end
  8.